home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / basic / OnlineTimer.lha / OnlineTimer / OnlineTimer1.3.bas < prev    next >
Encoding:
BASIC Source File  |  1999-11-30  |  1.3 KB  |  60 lines
  1. REM Online Timer in Hisoft BASIC by Simon Goodwin
  2. REM For Amiga Format's BANGING THE METAL series
  3. REM
  4. REM This code monitors bit 5 of CIAB port A, pin
  5. REM 8 of the RS-232 port, which IS clear (0) when
  6. REM the modem sends a 'carrier detect' signal.
  7. REM
  8. REM V 1.3 - Times in hours, minutes and seconds
  9. REM
  10. REM Should use fixed font, or be font adaptive.
  11. REM
  12. REM $INCLUDE dos.bh
  13. LIBRARY OPEN "dos.library" ' For Delay routine
  14.  
  15. CIAA_PRA&=12570624
  16. ver$="$VER: OnlineTimer 1.3 (24.3.1999)"
  17. HB$=" HiSoft BASIC "
  18.  
  19. WINDOW 1," "+HB$+MID$(ver$,7,16),(160,16)-(320,60),1+2+4+16+256
  20.  
  21.  
  22. Timing%=0
  23. Start!=TIMER
  24. LOCATE 2,4
  25. PRINT "Time on line  0 : 0 : 0";
  26.  
  27. REPEAT check
  28.  
  29.   CD%=(PEEK(CIAA_PRA&) AND 32)
  30.   IF CD%
  31.     Timing%=1 : Start!=TIMER
  32.   ELSE
  33.     IF Timing%
  34.       
  35.       secs&=INT(TIMER-Start!+.5)
  36.       minutes&=secs&\60
  37.       hours&=minutes&\60
  38.       secs&=secs&-(60*(minutes&+hours&*60))
  39.       minutes&=minutes&-hours&*60
  40.  
  41.       LOCATE 2,17
  42.       PRINT hours&;":";minutes&;":";secs&;"     ";
  43.  
  44.     END IF
  45.   END IF
  46.     
  47.   Delay &30 ' Update periodically
  48.   
  49. END REPEAT check
  50.  
  51. REM This is just a very simple example.
  52. REM Suggested updates: keep a log file?
  53. REM
  54. REM Check the real time with TIME$ and
  55. REM display running call costs according
  56. REM to the date and time of day?
  57. REM
  58. REM Adjust to monitor the CD bit on other
  59. REM serial ports (IOBLIX, GVP, MFC etc)?
  60.